10 '*** OISAC 2 *** MUL ***
20 PRINT"(A*B)":INPUT"A ";A,"B ";B
30 C=0:FOR I=1 TO B:C=C+A:NEXTI
40 PRINT A;"*";B;"=";C
50 PRINT "I=";I